<%

Function configuracoes_get(campo)

		str = "Select valor FROM configuracoes where nome='"&campo&"'"
   		Set rsConf = conexao_geral.Execute(str)	
		
		configuracoes_get = rsConf("valor")

End Function


Function configuracoes_set(campo, valor)

		str = "UPDATE configuracoes SET "
		str = str & "valor='"&valor&"' "
		str = str & " WHERE nome="&campo
		Set rsI = conexao.Execute(str)

End Function
%>
